home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / VIC20 / A-Monthly / (v)ae.d64 / pods.bas (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  11KB  |  510 lines
  1. 4 PRINTCHR$(142):   D$=""
  2. 5 FORI=1TO50
  3. 6 C$="[146]":IF I/2=INT(I/2)THEN C$=""
  4. 9 PRINT"[147]"
  5. 10 PRINTC$;D$;"[213][192][201][213][192][201] [176][192][201] [213][192][201]"
  6. 12 PRINTC$;D$;"[221] [221][221] [221] [221] [221] [221]  "
  7. 14 PRINTC$;D$;"[171][192][203][221][160][221][160][221][160][221][160][202][192][201]"
  8. 15 PRINTC$;D$;"[221]  [221] [221] [221] [221]   [221]"
  9. 16 PRINTC$;D$;"[221]  [202][192][203] [173][192][203] [202][192][203]"
  10. 17 FORJ=1 TO 30:NEXT J
  11. 20 NEXT I
  12. 115 REM START OF PROGRAM
  13. 116 DIM GS$(20)
  14. 117 BL$="                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  15. 118 HL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  16. 119 D1$=CHR$(16)
  17. 120 D2$=CHR$(13)
  18. 121 D3$=CHR$(14)
  19. 122 D4$=CHR$(15)
  20. 123 MS$="PLEASE WAIT..."
  21. 124 E1$="[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219]"
  22. 125 GOSUB 2130
  23. 126 END
  24. 130 :
  25. 140 REM SUBROUTINE INPUT PARSER
  26. 150 P1$="":PX=0:PFL=0
  27. 160 GET A$:PRINT" [157]";:IF A$=CHR$(13)OR A$=CHR$(20)ANDPX=0GOTO160
  28. 165 IF A$=CHR$(20)THENPX=PX-1:P1$=LEFT$(P1$,PX):PRINTA$;:GOTO 160
  29. 170 FORD=1TO40:NEXTD:PRINT"[146] [157]";A$;
  30. 180 IF A$=","THEN P1=VAL(P1$):PFL=2:
  31. 190 IF A$="."THEN P1=VAL(P1$):PFL=1:IF P1=0THEN PFL=3
  32. 200 IF PFL<>0 GOTO 225
  33. 210 P1$=P1$+A$:IFA$<>""THENPX=PX+1
  34. 220 GOTO160
  35. 225 RETURN
  36. 230 :
  37. 240 REM SUBROUTINE Y/N
  38. 250 GET Y1$:IF Y1$<>"Y"ANDY1$<>"N"THEN 250
  39. 260 YFL=2:IFY1$="Y"THENYFL=1
  40. 270 RETURN
  41. 280 :
  42. 290 REM SUBROUTINE RETURN TO MENU
  43. 300 PRINT"[147]BACK TO MENU (Y/N) ?"
  44. 310 GOSUB 250:RETURN
  45. 320 :
  46. 330 REM SUBROUTINE TO BLANK A LINE
  47. 340 PRINT"":  FOR IA=1 TO SL:PRINT"";:NEXT
  48. 350 PRINTBL$
  49. 360 RETURN
  50. 370 :
  51. 380 :
  52. 390 REM SUBROUTINE TO PRINT TITLES
  53. 400 PRINT#4,D2$D2$D2$
  54. 410 ON C3 GOTO 460,970,470,970,480
  55. 460 PRINT#4,D3$"SUMMARY STATISTICS"D4$:GOTO 490
  56. 470 PRINT#4,D3$"FREQUENCY HISTOGRAM"D4$:GOTO 490
  57. 480 PRINT#4,D3$"BAR GRAPH"D4$:GOTO 490
  58. 490 PRINT#4, D2$
  59. 500 RETURN
  60. 501 :
  61. 510 REM SUBROUTINE TO RUN THROUGH DATA BY LINK ORDER
  62. 520 I=1:J=1
  63. 530 IF PT%(I)=0 GOTO 680
  64. 540 IFPT%(I) >0 THENONVAL(C3$)GOSUB1690,980,1180,980,980,840
  65. 600 IFPT%(I)<0 THENONVAL(C3$)GOSUB1900,990,1280,990,1580,990
  66. 660 I=I+1
  67. 670 GOTO 530
  68. 680 RETURN
  69. 690 :
  70. 700 REM SUBROUTINE TO INITIALIZE TOTAL SUBROUTINE
  71. 710 PRINT"[147]"
  72. 720 FOR X=1 TO NC
  73. 730 ME(X)=0:TT(X)=0:NUM(X)=0:NEXT X
  74. 740 M8=0:M1=9E-30:M2=9E30
  75. 750 RETURN
  76. 760 :
  77. 770 REM SUBROUTINE TO INITIALIZE SUM. STAT SUBROUTINE
  78. 780 FOR X=1 TO NC
  79. 790 SS(X)=0:VA(X)=0:ST(X)=0
  80. 800 NEXT X
  81. 810 RETURN
  82. 820 :
  83. 830 :
  84. 840 REM SUBROUTINE TO CALCULATE TOTALS
  85. 850 PRINTMS$
  86. 860 FOR N=1 TO ND
  87. 870 IF OMD%(PT%(I),N)=1GOTO 920
  88. 880 IF MTRX(PT%(I),N)>M1THEN M1=MTRX(PT%(I),N)
  89. 890 IF MTRX(PT%(I),N)<M2 THEN M2 = MTRX(PT%(I),N)
  90. 900 TT(J)=TT(J)+MTRX(PT%(I),N)
  91. 910 NUM(J)=NUM(J)+1
  92. 920 NEXT N
  93. 930 IF PT%(I+1)<0 THEN ME(J)=TT(J)/NUM(J)
  94. 940 IF ME(J)>M8 THEN M8=ME(J)
  95. 950 RETURN
  96. 960 :
  97. 970 RETURN :REM THIS IS A DUMMY SUBROUTINE
  98. 980 I=I+1:RETURN:REM ALMOST A DUMMY SUBROUTINE
  99. 990 J=J+1:RETURN:REM SAME AS ABOVE
  100. 1000 :
  101. 1010 :
  102. 1020 REM SUBROUTINE TO PRINT LABELS
  103. 1030 PRINT"VAR: ";VP$
  104. 1040 PRINT"LEVEL: ";LP$(J) ;D2$
  105. 1050 RETURN
  106. 1060 :
  107. 1070 REM SUBROUTINE TO PREPARE HISTOGRAM PARAMETERS
  108. 1080 PRINT"[147]HISTOGRAM":PRINTHL$
  109. 1090 PRINT"GRAPH RANGE:":PRINTHL$
  110. 1091 PRINT"MIN",M2
  111. 1100 PRINT "MAX",M1:PRINT"USE THESE (Y/N)?"
  112. 1110 GOSUB 250:IF YFL=1GOTO1140
  113. 1120 INPUT"MIN. VALUE";M2
  114. 1130 INPUT"MAX. VALUE";M1
  115. 1140 PRINT"":INPUT "NO. INTERVALS (<=20)";NI
  116. 1150 I2=(M2-M1)/NI
  117. 1160 RETURN
  118. 1170 :
  119. 1180 REM SUBROUTINE TO PREPARE HISTOGRAM
  120. 1190 FOR N=1 TO ND
  121. 1200 IF OMD%(PT%(I),N)=1 GOTO 1250
  122. 1210 Z1=INT((MTRX(PT%(I),N)-M1)/I2)+1
  123. 1220 IF MTRX(PT%(I),N)>M1 GOTO 1250
  124. 1230 IF MTRX(PT%(I),N)<=M2GOTO 1250
  125. 1240 GS$(Z1)=GS$(Z1)+"[166]"
  126. 1250 NEXT N
  127. 1260 RETURN
  128. 1270 :
  129. 1280 REM SUBROUTINE TO PRINT HISTOGRAM
  130. 1290 CMD 4:GOSUB 1020
  131. 1300 PRINT#4,D1$ "20" "FREQUENCY "
  132. 1310 PRINT#4,D1$"200"D1$"3010"D1$"4020"D1$"5030"D1$"6040"
  133. 1320 PRINT#4,M1;">= ";D1$ "20" ;"[219]";E1$
  134. 1330 FOR K=1 TO NI
  135. 1340 PRINT#4,D1$ "20" "[170]";GS$(K);LEN(GS$(K))
  136. 1350 PRINT#4,"> ";M1+K*I2;">= ";D1$ "20" "[179]"
  137. 1360 NEXT K
  138. 1370 J=J+1:PRINT#4,D2$
  139. 1380 FOR U=1 TO 20:GS$(U)="":NEXT U
  140. 1390 RETURN
  141. 1400 :
  142. 1410 REM SUBROUTINE TO CHOOSE B GRAPH MAX
  143. 1420 PRINT"[147]GRAPH RANGE :":PRINTHL$
  144. 1421 PRINT"MIN",0:PRINT"MAX",M8
  145. 1430 PRINT"USE THESE   (Y/N)
  146. 1440 [141] 250:[139]YFL[178]1[137]1460
  147. 1450 [133]"NEW MAX";M8
  148. 1460 [142]
  149. 1470 :
  150. 1480 [143] SUBROUTINE TO PRINT BAR GRAPH MARGIN
  151. 1490 [152]4,"VARIABLE :"
  152. 1500 [152]4,VP$D2$D1$"35MEAN DATA VALUE"
  153. 1510 I2[178]M8[173]40
  154. 1520 [152]4,D1$"35"I2[172]10D1$"55"I2[172]30
  155. 1530 [152]4,D1$"25"0;D1$"35^"D1$"45"I2[172]20D1$"55^"D1$"65"I2[172]40
  156. 1540 [152]4,"LEVEL :";
  157. 1550 [152]4,D1$"25(null)"; E1$ D2$
  158. 1560 [142]
  159. 1570 :
  160. 1580 [143] SUBROUTINE TO PRINT BAR GRAPH
  161. 1590 [152]4,LP$(J);D1$;"25+";
  162. 1600 [139]ME(J)[178]0[167][152]4,ME(J):[137]1630
  163. 1610 [129] P[178]1 [164] ME(J)[173]I2:[152]4,"SPC(";:[130]:[152]4,ME(J)
  164. 1620 [139] LI[178]0[137] 1640
  165. 1630 [139] [181](J[173]LI)[178]J[173]LI[167][141] 1550
  166. 1640 J[178]J[170]1
  167. 1650 [142]
  168. 1660 :
  169. 1670 :
  170. 1680 [143] SUBROUTINE TO CALCULATE SUMMARY STATS
  171. 1690 [153]"LOAD";MS$
  172. 1700 [129] N[178]1 [164] ND
  173. 1710 [139] OMD%(PT%(I),N)[178]1 [137] 1740
  174. 1720 A[178]MTRX(PT%(I),N)[171]ME(J)
  175. 1730 SS(J)[178]SS(J)[170](A[172]A)
  176. 1740 [130] N
  177. 1750 [139] PT%(I[170]1) [177]0 [137]1790
  178. 1760 [139] NUM(J)[178]1 [167] VA(J)[178]0:[137] 1780
  179. 1770 VA(J)[178]SS(J)[173](NUM(J)[171]1)
  180. 1780 ST(J)[178][186](VA(J))
  181. 1790 [142]
  182. 1800 :
  183. 1810 [143] SUBROUTINE TO CHOOSE SUMMARY STATS. OUTPUT
  184. 1820 [153]"LOADOUTPUT TO :":[153]HL$
  185. 1830 [153]"1. SCREEN"
  186. 1831 [153]"2. PRINTER"
  187. 1840 [161]SO$:[139]SO$[179][177]"1"[175]SO$[179][177]"2"[137] 1840
  188. 1850 [139] SO$[178]"1" [167] [153]"LOAD":[137] 1880
  189. 1860 [141] 400:[152]4,"VARIABLE :"D2$;VP$ D2$"LEVEL :";
  190. 1870 [152]4,D1$"20#OBS."D1$"28TOTAL"D1$"37MEAN"D1$"51VARIANCE"D1$"65STD. DEV."
  191. 1880 [142]
  192. 1890 :
  193. 1900 [143] SUBROUTINE TO BRANCH TO OUTPUT DEVICE
  194. 1910 [145][197](SO$)[141] 2010,1950
  195. 1930 [142]
  196. 1940 :
  197. 1950 [143] SUBROUTINE TO PRINTER
  198. 1960 [152]4,LP$(J)
  199. 1970 [152]4,D1$"20"NUM(J);D1$"28"TT(J);D1$"37"ME(J);D1$"51"VA(J);D1$"65"ST(J)
  200. 1980 J[178]J[170]1
  201. 1990 [142]
  202. 2000 :
  203. 2010 [143] SUBROUTINE TO SCREEN
  204. 2015 [153]"LOAD"
  205. 2020 [141]  1020:[153]HL$
  206. 2030 [153]"TOTAL    ";TT(J)
  207. 2040 [153]"MEAN     ";ME(J)
  208. 2050 [153]"VARIANCE ";VA(J)
  209. 2060 [153]"STD DEV  ";ST(J)
  210. 2070 [153]"PRESS <RETURN>"
  211. 2080 [161] A$
  212. 2090 [139] A$[179][177][199](13)[137] 2080
  213. 2100 J[178]J[170]1
  214. 2110 [142]
  215. 2120 :
  216. 2130 [143] MAIN MENU
  217. 2140 [153]"LOAD":[151] 214,3 :[153]:[153]"PODSWAIT"
  218. 2150 [153]"  1.WAIT DATA"
  219. 2160 [153]"  2.WAIT STATISTICS"
  220. 2170 [153]"  3.WAIT EXIT PRG."
  221. 2180 [161] C1$
  222. 2190 [139] [197](C1$)[179]1 [176] [197](C1$)[177]3 [167] 2180
  223. 2200 [145] [197](C1$)[141] 2250,2430
  224. 2220 [139] [197](C1$)[179][177]3 [137] 2130
  225. 2230 [142]
  226. 2240 :
  227. 2250 [143] 1. MENU
  228. 2260 [153]"LOAD":[151] 214,3:[153]:[153]"      DATA WAIT"
  229. 2270 [153]"  1.WAIT  NEW"
  230. 2280 [153]"  2.WAIT  OLD"
  231. 2290 [153]"  3.WAIT  CHANGE"
  232. 2300 [153]"  4.WAIT  SAVE"
  233. 2310 [153]"  5.WAIT  GROUP DATA"
  234. 2320 [153]"  6.WAIT  MAIN MENU"
  235. 2330 [161] C2$
  236. 2340 [139] [197](C2$)[179]1 [176] [197](C2$)[177]6 [137]2330
  237. 2345 [141]300:[139]YFL[178]1[167]2260
  238. 2350 [145] [197](C2$)[141] 2630,4190,3540,4190,3080
  239. 2400 [139] [197](C2$)[179][177]6 [137] 2250
  240. 2410 [142]
  241. 2420 :
  242. 2430 [143] 2. MENU
  243. 2440 [139] F1[178]0[167] C3$[178]"6":[141] 700:[141] 510:F1[178]1
  244. 2450 [153]"LOAD":[151] 214,3:[153]:  [153]"      STATISTICSWAIT"
  245. 2460 [153]"  1.WAIT SUMMARY STATS"
  246. 2470 [153]"  2.WAIT "
  247. 2480 [153]"  3.WAIT HISTOGRAM"
  248. 2490 [153]"  4.WAIT "
  249. 2500 [153]"  5.WAIT BAR GRAPH
  250. 2510 PRINT"  6.[146] MAIN MENU
  251. 2520 [161] C3$
  252. 2530 [139] [197](C3$)[179]1 [176] [197](C3$)[177]6 [137] 2520
  253. 2540 C3[178][197](C3$)
  254. 2550 [139]C3[178]1[167][159] 4,4:[141]1810:[141]770:[141]510::[160] 4
  255. 2560 [139] C3[178]2 [167] [141] 970
  256. 2570 [139] C3[178]3 [167] [159] 4,4:[141] 1070:[141]400:[141] 510:[160] 4
  257. 2580 [139] C3[178]4 [167]   [141] 510
  258. 2590 [139]C3[178]5[167]:[141]1410:[159]4,4:[141]400:[141]1480:[141]510::[160] 4
  259. 2600 [139] [197](C3$)[179][177]6 [137] 2430
  260. 2610 [142]
  261. 2620 :
  262. 2630 [143] SUBROUTINE TO INPUT NO. OF VAR.,LEVELS,OBS.,AND LABELS
  263. 2670 [153]"LOADINPUT   NUMBER   OF   VARIABLES (<=5)"
  264. 2680 [133] NV
  265. 2690 [134] LV$(NV),NL%(NV[170]1)
  266. 2700 [129] I[178]1 [164] NV
  267. 2710 [153]"LOADLABEL FOR VARIABLE ";I
  268. 2720 [133] LV$(I):LV$(I)[178]LV$(I)[170]" "
  269. 2730 [153]"HOW MANY LEVELS IN    VARIABLE ";LV$(I)
  270. 2740 [133] NL%(I)
  271. 2750 [139] MX[179]NL%(I)[167] MX[178] NL%(I)
  272. 2760 [130] I
  273. 2770 A[178]1
  274. 2780 [129] I[178]1 [164] NV
  275. 2790 A[178]A[172]NL%(I)
  276. 2800 [130] I
  277. 2810 [134] LP$(A)
  278. 2820 [134] LL$(5,MX)
  279. 2830 [129] I[178]1 [164] NV
  280. 2840 [153]"LOAD VARIABLE ";LV$(I):[153]HL$
  281. 2850 [129] J[178]1 [164] NL%(I)
  282. 2860 [153]"LABEL FOR LEVEL ";J:[133]LL$(I,J):LL$(I,J)[178]LL$(I,J)[170]" "
  283. 2870 [130] J
  284. 2880 [130] I
  285. 2882 [129] I[178]1 [164] NV:L1%(I)[178]I:[130] I
  286. 2884 [141] 5020
  287. 2890 NC[178]1
  288. 2900 [129] I[178]1 [164] NV
  289. 2910 NC[178]NC[172]NL%(I)
  290. 2920 [130] I
  291. 2930 [134] ME(NC),TT(NC),NUM(NC),SS(NC),VA(NC),ST(NC)
  292. 2940 [153]" LOADHOW MANY DATA POINTS  PER CELL"
  293. 2950 [133] ND
  294. 2960 [134] MTRX(NC,ND),PT%(NC[172]2[170]2),OMD%(NC,ND)
  295. 2970 [129] I[178]1 [164] NC
  296. 2980 [153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
  297. 2990 [129] N[178]1 [164] ND
  298. 3000 [153]"DATA#";N;
  299. 3010 [133] TMP$:[139] TMP$[178]"*" [167] OMD%(I,N)[178]1[137] 3030
  300. 3020 MTRX(I,N)[178][197](TMP$)
  301. 3030 [139] N[173]15[178][181](N[173]15)[167][153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
  302. 3040 [130] N
  303. 3050 [130] I
  304. 3060 [142]
  305. 3070 :
  306. 3080 [143] SUBROUTINE TO INPUT LINK ORDER
  307. 3090 [153]"LOAD    VARIABLES":[153]HL$
  308. 3100 [129] I[178]1 [164] NV
  309. 3110 [153]I;"CMD.";LV$(I)
  310. 3120 [130] I
  311. 3130 [153]HL$
  312. 3140 [153]"INPUT VARIABLE ORDER."
  313. 3150 [153]"INPUT   VARIABLE  NO. FOLLOWED BY A PERIOD."
  314. 3160 [153]"INPUT '0.' FOR END.":[153]HL$
  315. 3165 NG[178]1
  316. 3175 I[178]1
  317. 3180 [153]: [153]"#";I;" ORDER  ";
  318. 3182 [141] 150:[145] PFL [137] 3184,3186,3200
  319. 3184 [139] I[177]NV [167] [153]"LOADREGROUP DATA":[129]IA[178]1[164]250:[130]IA:[137]3090
  320. 3185 [137]3190
  321. 3186 [153]"ONON":[137]3180
  322. 3190 KY%(I)[178]P1:[139]NL%(KY%(I))[179][177]0[167] NG[178]NG[172]NL%(KY%(I))
  323. 3200 LI[178]NL%(KY%(I[171]1)):[139]PFL[178]3[137]3220
  324. 3210 [139] I[179][178]NV  [167] I[178]I[170]1:[137] 3180
  325. 3220 CG[178]NC[173]NG
  326. 3230 VP$[178]""
  327. 3240 [129] I[178]1 [164] 5:VP$[178]VP$[170]LV$(KY%(I)):[130] I
  328. 3250 [153]"LOADDATA GROUPING : ":[153]HL$
  329. 3260 [153]"SEPERATE CELLS WITHIN GROUPS BY COMMA."
  330. 3270 [153]"END  GROUPS   WITH    PERIODS."
  331. 3280 [153]"END GROUPING WITH '0.'"
  332. 3290 [153]"YOU HAVE";NC; "CELLS."
  333. 3300 [153]"YOU NEED";NG;"GROUPS"
  334. 3305 [153]"WITH";CG;"CELLS/GROUP.":[153]HL$
  335. 3310 W[178]1:I[178]1:[153]"GROUP";W,
  336. 3320 [141] 150
  337. 3330 PT%(I)[178]P1
  338. 3340 [145] PFL [137] 3350,3360,3370
  339. 3350 I[178]I[170]1:PT%(I)[178][171]9:W[178]W[170]1:[153]: [153]"GROUP";W,
  340. 3360 I[178]I[170]1:[139] I[177]NC[170]NG[170]1 [167][153]"LOADREGROUP DATA":[129]Z[178]1[164]250:[130]Z:[137]3250
  341. 3365 [137] 3320
  342. 3370 [153]"LOAD";MS$
  343. 3380 [129] I[178]1[164]NV:L1%(I)[178]KY%(I):[130]I
  344. 3390 [141] 5020
  345. 3510 F1[178]0
  346. 3520 [142]
  347. 3530 :
  348. 3540 [143] SUBROUTINE TO CHANGE DATA
  349. 3550 [153]"LOAD"
  350. 3560 [153]"   1. CHANGE DATA"
  351. 3570 [153]"   2. CHANGE LABEL"
  352. 3580 [161]CF$:[139] [197](CF$)[179][177]1 [175][197](CF$)[179][177]2 [137] 3580
  353. 3590 [145] [197](CF$)[141] 3630,3790
  354. 3610 [142]
  355. 3620 :
  356. 3630 [143] SUBROUTINE TO SHOW DATA
  357. 3640 [153]"LOAD1. SINGLE"
  358. 3641 [153]"2. CONTINUOUS"
  359. 3650 [161] SE$:[139] SE$[179][177]"1"[175]SE$[179][177]"2"[167] [137] 3650
  360. 3660 [133]"  START AT CELL...";S
  361. 3670 [133]"  END AT CELL...";E:[139]E[177]NC[167]E[178]NC
  362. 3675 [129]I[178]1[164]NV:L1%(I)[178]I:[130]I:[141] 5020
  363. 3680 [129] I[178]S [164] E
  364. 3690 [153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
  365. 3700 [129] J[178]1 [164] ND
  366. 3710 [153]"DATA#";J,:[139] OMD%(I,J)[178]1[167][153]:[137]3730
  367. 3720 [153]MTRX(I,J)
  368. 3730 [139] [181](J[173]15)[178]J[173]15[167] [141] 3960:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
  369. 3740 [130] J
  370. 3750 [139] [181](J[173]15)[179][177]J[173]15 [167] [141] 3960
  371. 3760 [130] I
  372. 3770 [142]
  373. 3780 :
  374. 3790 [143] SUBROUTINE TO SHOW LABELS
  375. 3800 [153]"LOADVARIABLES":[153]HL$
  376. 3810 J[178]0
  377. 3820 [129] I[178]1 [164] NV
  378. 3830 [153]I;" ";LV$(I)
  379. 3840 [130] I
  380. 3850 [141] 3960
  381. 3860 [129] I[178]1 [164] NV
  382. 3870 [153]"LOADVARIABLE: ";LV$(I):[153]HL$
  383. 3880 [129] J[178]1 [164] NL%(I)
  384. 3890 [153]J;" ";LL$(I,J)
  385. 3900 [130] J
  386. 3910 [141] 3960
  387. 3920 [130] I
  388. 3930 [142]
  389. 3940 :
  390. 3950 :
  391. 3960 [143] SUB ROUTINE CHANGE
  392. 3970 SL[178]20:[141]340:[153]"CHANGE   (Y/N)":[141] 250
  393. 4000 [139]YFL[178]2 [167] 4170
  394. 4010 SL[178]20:[141]340:[133]"WHICH ENTRY";EN
  395. 4015 [139] EN[177]ND [167] [137] 3970
  396. 4020 SL[178]19:[141]340:[153]"ENTRY";EN
  397. 4030 [139] [197](CF$)[178]2[137]4110
  398. 4040 SL[178]20:[141]340:[133]"NEW VALUE";TMP$:SL[178]19:[141]340:SL[178]20: [141]340
  399. 4050 [139] TMP$[178]"S" [167] [137] 4160
  400. 4060 [139] TMP$[178]"*" [167] OMD%(I,EN)[178]1:[137] 4080
  401. 4070 MTRX(I,EN)[178][197](TMP$):OMD%(I,EN)[178]0
  402. 4080 [139] SE$[178]"2"[167] EN[178]EN[170]1:[139] EN[177]ND[167] [137] 4170
  403. 4090 [139] SE$[178]"2" [167] [137] 4020
  404. 4100 [137] 4160
  405. 4110 [139] J[178]0 [137] 4140
  406. 4120 SL[178]20:[141]340:[133]"NEW LABEL";LL$(I,EN):LL$(I,EN)[178]LL$(I,EN)[170]" "
  407. 4130 SL[178]20:[141]340:[137]4160
  408. 4140 SL[178]20:[141]340:[133] "NEW LABEL";LV$(EN):LV$(EN)[178]LV$(EN)[170]" "
  409. 4150 SL[178]20:[141]340:[137]4160
  410. 4160 [141] 3960
  411. 4170 [142]
  412. 4180 :
  413. 4190 [143] SUBROUTINE TO CHOOSE TAPE/DISC/MENU
  414. 4200 [153]"LOAD1. TAPE"
  415. 4201 [153]"2. DISC"
  416. 4210 [161] A$:[139] [197](A$)[179]1[176][197](A$)[177]2 [137] 4210
  417. 4230 F2[178]0
  418. 4240 [153]:[133] "FILENAME";FL$
  419. 4250 [145] [197](C2$)[141] 970,4610,970,4320
  420. 4290 [139] F2[178]1[167][137]4240
  421. 4300 [142]
  422. 4310 :
  423. 4320 [143] SUBROUTINE TO SAVE
  424. 4330 [139] [197](A$)[178]1  [137] 4350
  425. 4340 [139] [197](A$)[178]2  [137] 4360
  426. 4350 [159] 1,1,2,FL$ :[137] 4390
  427. 4360 [159]15,8,15
  428. 4370 [159] 1,8,8,"0:"[170]FL$[170]",S,W"
  429. 4380 [132]15,A:[139]A[178]63[167][152]15,"I":[160] 1:[160] 15:F2[178]1:[137] 4590
  430. 4390 [152]1,NV
  431. 4400 [129] I[178]1 [164] NV
  432. 4410 [152]1,LV$(I)
  433. 4420 [152]1,NL%(I)
  434. 4430 [130] I
  435. 4440 [129] I[178]1 [164] NV
  436. 4450 [129] J[178]1 [164] NL%(I)
  437. 4460 [152]1,LL$(I,J)
  438. 4470 [130] J:[130] I
  439. 4480 [152]1,NC
  440. 4490 [152]1,ND
  441. 4500 [129] I[178]1 [164] NC
  442. 4510 [129] N[178]1 [164] ND
  443. 4520 TMP$[178][196](MTRX(I,N))
  444. 4530 [139] OMD%(I,N)[178]1 [167] TMP$[178]"*"
  445. 4540 [152]1,TMP$
  446. 4550 [130] N
  447. 4560 [130] I
  448. 4570 [160] 1:[160] 15
  449. 4580 F2[178]0
  450. 4590 [142]
  451. 4600 :
  452. 4610 [143] SUBROUTINE TO LOAD OLD
  453. 4620 [139] [197](A$)[178]1 [137] 4650
  454. 4630 [139] [197](A$)[178]2 [137] 4660
  455. 4640 [153]"LOAD"
  456. 4650 [159] 1,1,0,FL$:[137] 4690
  457. 4660 [159] 15,8,15
  458. 4670 [159] 1,8,8,"0:"[170]FL$[170]",S,R"
  459. 4680 [132]15,A:[139]A[178]62[167][152]15,"I":[160] 1:[160]15:F2[178]1:[137]5010
  460. 4690 [132]1,NV
  461. 4700 [134] LV$(NV),NL%(NV[170]1)
  462. 4710 [129] I[178]1 [164] NV
  463. 4720 [132]1,LV$(I)
  464. 4730 [132]1,NL%(I)
  465. 4740 [139] MX[179]NL%(I)[167]MX[178]NL%(I)
  466. 4750 [130] I
  467. 4760 A[178]1
  468. 4770 [129] I[178]1 [164] NV
  469. 4780 A[178]A[172]NL%(I)
  470. 4790 [130] I
  471. 4800 [134] LP$(A)
  472. 4810 [134]LL$(5,MX)
  473. 4820 [129] K[178]1 [164] 5:LL$(K,0)[178]" ":[130] K
  474. 4830 [129] I[178]1 [164] NV
  475. 4840 [129] J[178]1 [164] NL%(I)
  476. 4850 [132]1,LL$(I,J)
  477. 4860 [130] J
  478. 4870 [130] I
  479. 4880 [132]1,NC
  480. 4890 [134] ME(NC),TT(NC),NUM(NC),SS(NC),VA(NC),ST(NC)
  481. 4900 [132]1,ND
  482. 4910 [134] MTRX(NC,ND),PT%(NC[172]2[170]1),OMD%(NC,ND)
  483. 4920 [129] I[178]1 [164] NC
  484. 4930 [129] N[178]1 [164] ND
  485. 4940 [132]1,TMP$
  486. 4950 [139] TMP$[178]"*" [167] OMD%(I,N)[178]1:[137]4970
  487. 4960 MTRX(I,N)[178][197](TMP$)
  488. 4970 [130] N
  489. 4980 [130] I
  490. 4990 [160] 1:[160] 15
  491. 5000 F2[178]0
  492. 5010 [142]
  493. 5015 :
  494. 5020 [143] SUBROUTINE TO ORGANIZE LABELS
  495. 5021 N[178]1:J[178]0:K[178]0:L[178]0:M[178]0
  496. 5023 [129] I[178]1 [164] NL%(L1%(1))
  497. 5025 [139] NV[177]1 [167] [129] J[178]1 [164] NL%(L1%(2))
  498. 5027 [139] NV[177]2 [167] [129] K[178]1 [164] NL%(L1%(3))
  499. 5029 [139] NV[177]3 [167] [129] L[178]1 [164] NL%(L1%(4))
  500. 5030 :
  501. 5031 [139] NV[177]4 [167] [129] M[178]1 [164] NL%(L1%(5))
  502. 5033 LP$(N)[178]LL$(L1%(1),I)[170]LL$(L1%(2),J)[170]LL$(L1%(3),K)[170]LL$(L1%(4),L)[170]LL$(L1%(5),M)
  503. 5035 N[178]N[170]1
  504. 5037 [139] NV[177]4[167] [130] M
  505. 5039 [139] NV[177]3[167] [130] L
  506. 5041 [139] NV[177]2 [167] [130] K
  507. 5043 [139] NV[177]1 [167] [130] J
  508. 5045 [130] I
  509. 5048 [142]
  510.